home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / MacHTTP 1.3 / MacHTTP Software / Documentation / AppleEvent & AppleScript Info / More Scripts / MacHTTP Control Example next >
Encoding:
Text File  |  1994-05-02  |  627 b   |  17 lines  |  [TEXT/ToyS]
  1. tell application "MacHTTP"
  2.     activate
  3.     set oldReport to Status Report
  4.     Suspend Logging true
  5.     Refuse Connections true
  6.     Verbose Messages true
  7.     Hide Window true
  8.     set newReport to Status Report
  9.     --the following shows how to play around with the contents
  10.     -- of a status report message
  11.     set AppleScript's text item delimiters to ","
  12.     set bytesSent to word 2 of text item 12 of newReport
  13.     set totalCon to word 2 of text item 1 of newReport
  14.     return totalCon & " connections have requested " & bytesSent & " bytes of data." & return & return ¬
  15.         & "Status BEFORE: " & oldReport & return & return & "Status AFTER: " & newReport
  16. end tell
  17.